home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / comm2 / mm_1_2.lha / MM / Rexx / MM_EditMsgFlags.rexx < prev    next >
OS/2 REXX Batch file  |  1996-04-30  |  580b  |  39 lines
  1. /*
  2. ** Example script for MM_ReadMsg and MM_EditMsgFlags commands
  3. */
  4.  
  5. address 'MAILMANAGER'
  6.  
  7. drop FLAGSTRING
  8.  
  9. MM_ReadMsg 'MATRIX' 854 MSG
  10.  
  11. if RC=0 then do
  12.     say
  13.     say
  14.     say 'From:' MSG.FROM MSG.FROMADDR
  15.     say 'To:  ' MSG.TO MSG.TOADDR
  16.     say 'Subj:' MSG.SUBJ
  17.     say 'Date:' MSG.DATE
  18.     say 'Flags:' MSG.FLAGS
  19.     say
  20.     end
  21.  
  22. FLAGSTRING = "!SENT"
  23.  
  24. MM_EditMsgFlags 'MATRIX' 854 'FLAGSTRING'
  25. say RC
  26.  
  27. MM_ReadMsg 'MATRIX' 854 MSG
  28.  
  29. if RC=0 then do
  30.     say
  31.     say
  32.     say 'From:' MSG.FROM MSG.FROMADDR
  33.     say 'To:  ' MSG.TO MSG.TOADDR
  34.     say 'Subj:' MSG.SUBJ
  35.     say 'Date:' MSG.DATE
  36.     say 'Flags:' MSG.FLAGS
  37.     say
  38.     end
  39.